home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / comm / fido / TLPrefs1_1a.lha / TrapListPrefs / Install_TrapListPrefs < prev    next >
Text File  |  1994-11-06  |  3KB  |  125 lines
  1. ; Installation script for TrapListPrefs
  2.  
  3. (set @user-level 2)
  4.  
  5. (transcript "Installing TrapListPrefs...")
  6.  
  7. (set rtvernum (getversion "libs:reqtools.library"  ))
  8. (set rtver (/ rtvernum 65536))
  9. (set rtrev (- rtvernum (* rtver 65536) ) )
  10.  
  11.  
  12. (set muivernum (getversion "libs:muimaster.library" ))
  13. (set muiver (/ muivernum 65536))
  14. (set muirev (- muivernum (* muiver 65536) ) )
  15.  
  16.  
  17. ( if (< rtver  38)
  18.     (message ("You have reqtools v%ld.%ld\n" rtver rtrev)
  19.              "You need to install version 38.x+ of reqtools.library\n"
  20.              "inorder to use TrapListPrefs")
  21. )
  22.  
  23. ( if (< muiver  8)
  24.     (message ("You have MUI v%ld.%ld" muiver muirev)
  25.              "You need to install version 8.x+ of MUI\n"
  26.              "in order to use TrapListPrefs."
  27.              "This version of MUI can be found in the 2.1 release\n")
  28. )
  29.  
  30.  
  31. (set locale
  32.         (askoptions
  33.             (prompt "Install which language?")
  34.             (help  @askoptions-help)
  35.             (choices "English"
  36. ;                     "Dansk"
  37. ;                    "Español"
  38.                      "Français"   ;1
  39.                       "Italiano"   ;2
  40.                      "Deutsch"    ;3
  41. ;                    "Nederlands"
  42. ;                    "Norsk"
  43. ;                    "Português"
  44.                      "Suomi"      ;4
  45.                      "Svenska"        ;5
  46.                      )
  47.             (default 1)
  48.         )
  49. )
  50.  
  51. (if (IN locale 1)
  52.     (copyfiles
  53.             (source "catalogs/Français/traplistprefs.catalog")
  54.             (dest "Locale:Catalogs/Français")
  55.     )
  56. )
  57.  
  58. (if (IN locale 2)
  59.     (copyfiles
  60.             (source "catalogs/Italiano/traplistprefs.catalog")
  61.             (dest "Locale:Catalogs/Italiano")
  62.     )
  63. )
  64.  
  65. (if (IN locale 3)
  66.     (copyfiles
  67.             (source "catalogs/Deutsch/TrapListPrefs.catalog")
  68.             (dest "Locale:Catalogs/Deutsch")
  69.     )
  70. )
  71.  
  72. (if (IN locale 4)
  73.     (copyfiles
  74.             (source "catalogs/Suomi/TrapListPrefs.catalog")
  75.             (dest "Locale:Catalogs/Suomi")
  76.     )
  77. )
  78.  
  79. (if (IN locale 5)
  80.     (copyfiles
  81.             (source "catalogs/Svenska/TrapListPrefs.catalog")
  82.             (dest "Locale:Catalogs/Svenska")
  83.     )
  84. )
  85.  
  86. ( if (= (exists "Mail:TrapList.cfg" (noreq)) 1)
  87.     (set cfg
  88.         (askbool
  89.                 (prompt "You already have a configuration for TrapList\n"
  90.                         "in your Mail: directory.\n"
  91.                         "Do you want to TrapListPrefs to automatically load\n"
  92.                         "that config when it is run" )
  93.                 (help "It's up to YOU.")
  94.                 (choices "Yes" "No")
  95.                 (default 1)              ; 0 = no
  96.         )
  97.     )
  98. )
  99.  
  100.  
  101. (if (= cfg 1)                           ; conditional test
  102.     (tooltype
  103.             (dest "TrapListPrefs")
  104.             (settooltype "CONFIG" "Mail:TrapList.cfg")
  105.     )
  106. )
  107.  
  108. (set destdir
  109.         (askdir
  110.                 (prompt "Install TrapListPrefs where?")
  111.                 (help @askdir-help)
  112.                 (default "SYS:Prefs")
  113.         )
  114. )
  115.  
  116. (set @default-dest destdir)
  117.  
  118. (copyfiles
  119.         (source "TrapListPrefs")
  120.         (infos)
  121.         (dest @default-dest)
  122. )
  123.  
  124. (exit ("Please remember TrapListPrefs is shareware,\nsee docs for information about registering."))
  125.